home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / TurboText / Rexx / VMake.ttx < prev   
Encoding:
Text File  |  1995-12-24  |  2.0 KB  |  113 lines
  1. /*
  2. **      $Id: VMake.ttx,v 30.0 1994/06/10 18:06:17 dice Exp $
  3. **
  4. **      VMake integration.  Script for Oxxi TurboText (tm).
  5. **
  6. */
  7. PARSE UPPER ARG COMMAND /* Build Run Debug Front Open Compile */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. 'GetPort'
  12. port = Result
  13. clip = getclip('TTX_'||Result)
  14. if clip = "" | ~show('p',clip) THEN
  15.    DO
  16.       'SetStatusBar No VMake Project Active for this file'
  17.       exit 0
  18.    END
  19.  
  20. 'GetDocuments'
  21. docs = RESULT
  22.  
  23. OKSAVE = 0
  24. DO WHILE docs ~= ''
  25.    PARSE VAR docs '"' dummy '" TURBOTEXT' port docs
  26.  
  27.    port = 'TURBOTEXT'||port
  28.    ADDRESS VALUE port
  29.  
  30.    'GetFileInfo'
  31.    changed = word(RESULT, 2)
  32.  
  33.    IF changed = "YES" THEN
  34.    DO
  35.       IF OKSAVE = 0 then
  36.          DO
  37.             'RequestBool TITLE "You have unsaved files" PROMPT "Save changed files to disk?"'
  38.             IF RESULT = 'NO' THEN LEAVE
  39.             OKSAVE = 1
  40.          END
  41.       'SAVEFILE'
  42.    END
  43.    ADDRESS
  44. END
  45.  
  46. IF show('p','DICE_ERROR_PARSER') THEN
  47.    ADDRESS DICE_ERROR_PARSER Clear
  48.  
  49. 'SetStatusBar Running Vmake to' command
  50.  
  51. ADDRESS VALUE Clip
  52.  
  53. SELECT
  54.    WHEN COMMAND = 'COMPILE' THEN
  55.       DO
  56.          ADDRESS
  57.          'GetFileInfo'
  58.          PARSE value RESULT with d1 d2 '"' file '"'
  59.          ADDRESS
  60.  
  61.          'Select' file
  62.          IF RC = 0 THEN
  63.             'CALL 1'
  64.       END
  65.  
  66.    WHEN COMMAND = 'BUILD' THEN
  67.       DO
  68.          'CALL 2'
  69.          CRC = RC
  70.       END
  71.    WHEN COMMAND = 'RUN'   THEN
  72.       DO
  73.          'CALL 2'
  74.          IF RC = 0 THEN
  75.             'CALL 4'
  76.          CRC = RC
  77.       END
  78.    WHEN COMMAND = 'DEBUG' THEN
  79.       DO
  80.          'CALL 2'
  81.          IF RC = 0 THEN
  82.             'CALL 5'
  83.          CRC = RC
  84.       END
  85.    WHEN COMMAND = 'FRONT' THEN
  86.       DO
  87.          'FRONT'
  88.          CRC = RC
  89.       END
  90.    WHEN COMMAND = 'OPEN' THEN
  91.       DO
  92.          'FRONT'
  93.          CRC = RC
  94.       END
  95.    OTHERWISE
  96.       DO
  97.          address
  98.          'SetStatusBar Unknown Command:' COMMAND
  99.          exit 5
  100.       END
  101. END
  102.  
  103. ADDRESS
  104.  
  105. IF CRC ~= 0 THEN
  106. DO
  107.    'SetStatusBar' COMMAND 'Failed:' RESULT
  108. END
  109. ELSE
  110. DO
  111.    'SetStatusBar' COMMAND 'Successful'
  112. END
  113.